home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GEOS Mega ASM (19xx)(-).d64 / list4-9 < prev    next >
Text File  |  2019-04-13  |  684b  |  43 lines
  1. if     .p
  2.      t     "TopSym"
  3. endif
  4.  
  5.      t     "TestMen}"
  6.  
  7. :Start     bit     TestFlag
  8.      bvs     :5
  9.      lda     #$40
  10.      sta     TestFlag
  11.      lda     #$11
  12.      jsr     SetPattern
  13.      ldy     #5
  14. ::10     ldx     WerteTab,y
  15.      stx     r2,y
  16.      dey
  17.      bpl     :10
  18.      jsr     Rectangle
  19.  
  20. ::5     lda     #<SCREEN_BASE+640
  21.      sta     a0L
  22.      lda     #>SCREEN_BASE+640
  23.      sta     a0H
  24.      ldx     #20
  25. ::20     ldy     #0
  26.      jsr     invert
  27.      inc     a0H
  28.      dex
  29.      bne     :20
  30.      rts
  31.  
  32. :invert     lda     (a0),y
  33. ::10     eor     #$ff
  34.      sta     (a0),y
  35.      dey
  36.      bne     invert
  37.      rts
  38.  
  39. :TestFlag     b     0
  40.  
  41. :WerteTab     b     50,180
  42.      w     50,270